﻿Public Class ComboBoxTarea

    Private Sub ComboBoxTarea_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me.ComboBox1.Items
            .Add("Fresa")
            .Add("Vainilla")
            .Add("Chocolate")
            .Add("Ron con pasas")
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ComboBox1.Items.Add(Me.ComboBox1.Text)
    End Sub
End Class